/ BBS in a Box 15 / BBS in a box XV-1.iso / Files / System 7 / Frontier / DropLock-Unlock 1.0.sit / dropLock_Unlock ƒ / dropLock.rsrc / scpt_128

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 01 04 ec 00 02 00 00 | 00 c0 00 00 03 2b 00 0a |........|.....+..|
|00000010| 02 00 00 0f 06 47 65 6e | 65 76 61 00 00 00 00 00 |.....Gen|eva.....|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 09 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 07 20 00 00 a6 15 | ab e0 a9 f8 ad c8 00 00 |... ....|........|
|00000050| 00 3a 00 00 00 29 00 4a | 01 dd 02 25 4c 41 4e 44 |.:...).J|...%LAND|
|00000060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 00 00 64 72 6f 70 |........|....drop|
|00000080| 4c 6f 63 6b 20 64 72 6f | 70 6c 65 74 0d 56 65 72 |Lock dro|plet.Ver|
|00000090| 73 69 6f 6e 20 31 2e 30 | 2c 20 43 6f 70 79 72 69 |sion 1.0|, Copyri|
|000000a0| 67 68 74 20 a9 31 39 39 | 34 2c 20 4a 2e 20 43 69 |ght .199|4, J. Ci|
|000000b0| 63 69 6e 65 6c 6c 69 2e | 20 20 41 6c 6c 20 52 69 |cinelli.|  All Ri|
|000000c0| 67 68 74 73 20 52 65 73 | 65 72 76 65 64 2e 0d 09 |ghts Res|erved...|
|000000d0| 46 72 69 2c 20 4d 61 79 | 20 31 33 2c 20 31 39 39 |Fri, May| 13, 199|
|000000e0| 34 20 61 74 20 33 3a 35 | 33 3a 34 38 20 41 4d 20 |4 at 3:5|3:48 AM |
|000000f0| 62 79 20 4a 47 43 0d 09 | 4c 6f 63 6b 73 20 66 69 |by JGC..|Locks fi|
|00000100| 6c 65 73 20 61 6e 64 20 | 66 69 6c 65 73 20 69 6e |les and |files in|
|00000110| 73 69 64 65 20 66 6f 6c | 64 65 72 20 6f 72 20 64 |side fol|der or d|
|00000120| 69 73 6b 73 2e 0d 0d 62 | 75 6e 64 6c 65 20 c7 73 |isks...b|undle .s|
|00000130| 65 74 20 75 70 20 66 6f | 72 20 64 65 62 75 67 67 |et up fo|r debugg|
|00000140| 69 6e 67 0d 09 73 79 73 | 74 65 6d 2e 64 72 6f 70 |ing..sys|tem.drop|
|00000150| 6c 65 74 2e 70 61 74 68 | 20 3d 20 22 48 44 38 30 |let.path| = "HD80|
|00000160| 3a 41 70 70 6c 69 63 61 | 74 69 6f 6e 73 3a 52 65 |:Applica|tions:Re|
|00000170| 74 72 6f 73 70 65 63 74 | 20 c4 3a 22 0d 09 73 79 |trospect| .:"..sy|
|00000180| 73 74 65 6d 2e 64 72 6f | 70 6c 65 74 2e 63 6c 6f |stem.dro|plet.clo|
|00000190| 73 65 64 6f 77 6e 20 3d | 20 66 61 6c 73 65 0d 09 |sedown =| false..|
|000001a0| 73 79 73 74 65 6d 2e 64 | 72 6f 70 6c 65 74 2e 73 |system.d|roplet.s|
|000001b0| 74 61 72 74 75 70 20 3d | 20 74 72 75 65 0d 0d 69 |tartup =| true..i|
|000001c0| 66 20 73 79 73 74 65 6d | 2e 64 72 6f 70 6c 65 74 |f system|.droplet|
|000001d0| 2e 63 6c 6f 73 65 64 6f | 77 6e 0d 09 6d 73 67 20 |.closedo|wn..msg |
|000001e0| 28 22 22 29 0d 09 46 69 | 6e 64 65 72 2e 62 72 69 |("")..Fi|nder.bri|
|000001f0| 6e 67 54 6f 46 72 6f 6e | 74 20 28 29 0d 09 72 65 |ngToFron|t ()..re|
|00000200| 74 75 72 6e 0d 0d 69 66 | 20 73 79 73 74 65 6d 2e |turn..if| system.|
|00000210| 64 72 6f 70 6c 65 74 2e | 73 74 61 72 74 75 70 0d |droplet.|startup.|
|00000220| 09 6d 73 67 20 28 22 4c | 6f 63 6b 69 6e 67 20 46 |.msg ("L|ocking F|
|00000230| 69 6c 65 28 73 29 2e 2e | 2e 22 29 0d 0d 6f 6e 20 |ile(s)..|.")..on |
|00000240| 6c 6f 63 6b 46 69 6c 65 | 73 20 28 66 29 0d 09 69 |lockFile|s (f)..i|
|00000250| 66 20 66 69 6c 65 2e 69 | 73 41 6c 69 61 73 20 28 |f file.i|sAlias (|
|00000260| 66 29 0d 09 09 66 20 3d | 20 66 69 6c 65 2e 66 6f |f)...f =| file.fo|
|00000270| 6c 6c 6f 77 41 6c 69 61 | 73 20 28 66 29 0d 09 09 |llowAlia|s (f)...|
|00000280| 69 66 20 66 20 3d 3d 20 | 22 22 0d 09 09 09 64 69 |if f == |""....di|
|00000290| 61 6c 6f 67 2e 61 6c 65 | 72 74 20 28 22 41 6c 69 |alog.ale|rt ("Ali|
|000002a0| 61 73 20 6e 6f 74 20 63 | 6f 6e 6e 65 63 74 65 64 |as not c|onnected|
|000002b0| 20 74 6f 20 61 6e 79 74 | 68 69 6e 67 21 22 29 0d | to anyt|hing!").|
|000002c0| 09 09 09 72 65 74 75 72 | 6e 0d 09 69 66 20 66 69 |...retur|n..if fi|
|000002d0| 6c 65 2e 69 73 46 6f 6c | 64 65 72 20 28 66 29 20 |le.isFol|der (f) |
|000002e0| 6f 72 20 66 69 6c 65 2e | 69 73 56 6f 6c 75 6d 65 |or file.|isVolume|
|000002f0| 20 28 66 29 0d 09 09 66 | 69 6c 65 6c 6f 6f 70 20 | (f)...f|ileloop |
|00000300| 28 67 20 69 6e 20 66 2c | 20 69 6e 66 69 6e 69 74 |(g in f,| infinit|
|00000310| 79 29 0d 09 09 09 69 66 | 20 6e 6f 74 20 66 69 6c |y)....if| not fil|
|00000320| 65 2e 69 73 42 75 73 79 | 20 28 67 29 0d 09 09 09 |e.isBusy| (g)....|
|00000330| 09 66 69 6c 65 2e 6c 6f | 63 6b 20 28 67 29 0d 09 |.file.lo|ck (g)..|
|00000340| 65 6c 73 65 20 c7 20 6c | 6f 63 6b 20 69 6e 64 69 |else . l|ock indi|
|00000350| 76 69 64 75 61 6c 20 66 | 69 6c 65 2e 0d 09 09 69 |vidual f|ile....i|
|00000360| 66 20 6e 6f 74 20 66 69 | 6c 65 2e 69 73 42 75 73 |f not fi|le.isBus|
|00000370| 79 20 28 66 29 0d 09 09 | 09 66 69 6c 65 2e 6c 6f |y (f)...|.file.lo|
|00000380| 63 6b 20 28 66 29 0d 6c | 6f 63 6b 46 69 6c 65 73 |ck (f).l|ockFiles|
|00000390| 20 28 73 79 73 74 65 6d | 2e 64 72 6f 70 6c 65 74 | (system|.droplet|
|000003a0| 2e 70 61 74 68 29 0d 84 | 00 00 00 00 00 84 00 00 |.path)..|........|
|000003b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 80 |........|........|
|000003c0| 00 00 00 00 00 84 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 80 00 00 |........|........|
|000003e0| 00 00 00 80 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003f0| 00 00 00 00 00 00 00 00 | 00 00 00 80 00 00 00 00 |........|........|
|00000400| 00 80 00 00 00 00 00 00 | 00 00 00 00 00 80 00 00 |........|........|
|00000410| 00 00 00 80 00 00 00 00 | 00 80 00 00 00 00 00 00 |........|........|
|00000420| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000430| 00 00 00 00 00 00 00 80 | 00 00 00 00 00 80 00 00 |........|........|
|00000440| 00 00 00 80 00 00 00 00 | 00 80 00 00 00 00 00 80 |........|........|
|00000450| 00 00 00 00 00 80 00 00 | 00 00 00 80 00 00 00 00 |........|........|
|00000460| 00 80 00 00 00 00 00    |                         |....... |        |
+--------+-------------------------+-------------------------+--------+--------+